home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 November / Practical Internet November 2002.iso / pc / Software / Workshops / gg_setup.exe / #setuppath# / ggcss.exe / textpop.asp < prev    next >
Encoding:
Text File  |  2002-05-01  |  6.0 KB  |  190 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!-- #include file="connex.asp" -->
  3. <%
  4. set rsCss = Server.CreateObject("ADODB.Recordset")
  5. rsCss.ActiveConnection = connex
  6. rsCss.Open = "SELECT * FROM CSS WHERE ID = 1"
  7. %>
  8. <HTML>
  9. <HEAD>
  10. <TITLE>Text Control</TITLE>
  11. </HEAD>
  12. <BODY BGCOLOR=#D4D0C8 topmargin="0" leftmargin="0">
  13. <%
  14. d1 = Request.Form("d1")
  15. If d1 = "" Then
  16. d1 = "text_color.asp"
  17. End If
  18. %>
  19. <!-- #include file="colorpalette.asp" -->
  20. <form method="POST" action="process_text.asp" NAME=do_text target="output">
  21.   <p align="center">
  22.   <b><font face="Times New Roman">Font</font></b>
  23.   <font color="#C0C0C0">
  24.   <%
  25. set rsConfig = Server.CreateObject("ADODB.Recordset")
  26. rsConfig.ActiveConnection = connex
  27. rsConfig.Source = "SELECT SYS_FONTS FROM CONFIG"
  28. rsConfig.CursorType = 0
  29. rsConfig.CursorLocation = 2
  30. rsConfig.LockType = 3
  31. rsConfig.Open()
  32. rsConfig_numRows = 0
  33. SYS_FONTS=rsConfig.Fields.Item("SYS_FONTS").Value
  34. If SYS_FONTS="True" Then
  35. const HKEY_LOCAL_MACHINE    = &H80000002
  36. set obj = CreateObject( "a1asp.reg" )
  37. Set FontFso = CreateObject("Scripting.FileSystemObject")
  38. Set WindPath = FontFso.GetSpecialFolder(0)
  39. WinLen=Len(WindPath)
  40. WindPath=Right(WindPath, (WinLen-3))
  41. WindPath=Lcase(WindPath)
  42. If WindPath = "winnt" Then
  43. obj.RootKey = HKEY_LOCAL_MACHINE
  44. obj.OpenKey "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", false
  45. Else
  46. obj.RootKey = HKEY_LOCAL_MACHINE
  47. obj.OpenKey "\SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts", false
  48. End If
  49. %>
  50. <select name="fonts" onchange=do_text.submit()>
  51. <option selected><%=rsCss("FONT")%></option>
  52. <%
  53. x = obj.GetValueNames
  54. if( x>0 ) then
  55. for z=0 to x-1
  56. ok = obj.GetValueName( z )
  57. ok=LCase(ok)
  58. Set LetrChk = NEW RegExp
  59. LetrChk.Pattern = "\("
  60. LetrChk.Global = True
  61. ch1 = LetrChk.Replace(ok, "")
  62. SET LetrChk=Nothing
  63. Set LetrChk = NEW RegExp
  64. LetrChk.Pattern = "\)"
  65. LetrChk.Global = True
  66. ch2 = LetrChk.Replace(ch1, "")
  67. SET LetrChk=Nothing
  68. Set LetrChk = NEW RegExp
  69. LetrChk.Pattern = "truetype"
  70. LetrChk.Global = True
  71. ch3 = LetrChk.Replace(ch2, "")
  72. SET LetrChk=Nothing
  73. Set LetrChk = NEW RegExp
  74. LetrChk.Pattern = "all res"
  75. LetrChk.Global = True
  76. ch4 = LetrChk.Replace(ch3, "")
  77. SET LetrChk=Nothing
  78. Set LetrChk = NEW RegExp
  79. LetrChk.Pattern = "res"
  80. LetrChk.Global = True
  81. ch5 = LetrChk.Replace(ch4, "")
  82. SET LetrChk=Nothing
  83. Set LetrChk = NEW RegExp
  84. LetrChk.Pattern = "vga"
  85. LetrChk.Global = True
  86. ch6 = LetrChk.Replace(ch5, "")
  87. SET LetrChk=Nothing
  88. Set LetrChk = NEW RegExp
  89. LetrChk.Pattern = "plotter"
  90. LetrChk.Global = True
  91. ch7 = LetrChk.Replace(ch6, "")
  92. SET LetrChk=Nothing
  93. Set LetrChk = NEW RegExp
  94. LetrChk.Pattern = "[^abcdefghijklmnopqrstuvwxyz ]"
  95. LetrChk.Global = True
  96. ch8 = LetrChk.Replace(ch7, "")
  97. SET LetrChk=Nothing
  98. Set LetrChk = NEW RegExp
  99. LetrChk.Pattern = "\(Windows"
  100. LetrChk.Global = True
  101. ch9 = LetrChk.Replace(ch8, "")
  102. SET LetrChk=Nothing
  103. ch=ch9
  104. If InStr(ch, "bold") or InStr(ch, "italic") or InStr(ch, "normal") or InStr(ch, "oblique") or InStr(ch, "extra bold") or InStr(ch, "bold italic") or InStr(ch, "regular") Then
  105. else
  106. Lench=Len(ch)
  107. FirstCap=Ucase(Left(ch, 1))
  108. FirstRest=Right(ch, (Lench-1))
  109. FirstWord=FirstCap&FirstRest
  110. Response.Write "<option value='"&FirstWord&"'>"&FirstWord&"</option>"
  111. end if
  112. next
  113. Response.Write "</select>"
  114. end if
  115. obj.CloseKey
  116. set obj = Nothing
  117. Else
  118. rsConfig.Close()
  119. set rsFonts = Server.CreateObject("ADODB.Recordset")
  120. rsFonts.ActiveConnection = connex
  121. rsFonts.Source = "SELECT * FROM FONTS ORDER BY FONT_NAME ASC"
  122. rsFonts.CursorType = 2
  123. rsFonts.CursorLocation = 2
  124. rsFonts.LockType = 3
  125. rsFonts.Open()
  126. rsFonts_numRows = 0
  127. Response.Write "<select name='fonts' onchange=do_text.submit()>"
  128. If rsFonts.EOF Then
  129. Response.Write "<option value=''>No Fonts Found</option>"
  130. Else
  131. Response.Write "<option selected>"&rsCss("FONT")&"</option>"
  132. While (NOT rsFonts.EOF)
  133. Response.Write "<option value='"&rsFonts.Fields.Item("FONT_NAME").Value&"'>"&rsFonts.Fields.Item("FONT_NAME").Value&"</option>"
  134. rsFonts.MoveNext()
  135. Wend
  136. If (rsFonts.CursorType > 0) Then
  137. rsFonts.MoveFirst
  138. Else
  139. rsFonts.Requery
  140. End If
  141. Response.Write "</select>"
  142. End If
  143. rsFonts.Close()
  144. End If
  145. %>
  146.   </font>
  147.   <p align="center">
  148.   <b><font face="Times New Roman">Size</font></b><font color="#C0C0C0"><select size="1" name="txt_size" onchange=do_text.submit()>
  149.   <option selected><%=rsCss("SIZE")%></option>
  150.   <option value="8pt">8pt</option>
  151.   <option value="9pt">9pt</option>
  152.   <option value="10pt">10pt</option>
  153.   <option value="11pt">11pt</option>
  154.   <option value="12pt">12pt</option>
  155.   <option value="13pt">13pt</option>
  156.   <option value="14pt">14pt</option>
  157.   <option value="15pt">15pt</option>
  158.   <option value="16pt">16pt</option>
  159.   <option value="17pt">17pt</option>
  160.   <option value="18pt">18pt</option>
  161.   <option value="20pt">20pt</option>
  162.   <option value="22pt">22pt</option>
  163.   <option value="24pt">24pt</option>
  164.   <option value="26pt">26pt</option>
  165.   <option value="28pt">28pt</option>
  166.   <option value="30pt">30pt</option>
  167.   <option value="32pt">32pt</option>
  168.   <option value="34pt">34pt</option>
  169.   <option value="36pt">36pt</option>
  170.   </select></font>
  171.   <p align="center">
  172.   <b>Alignment </b>
  173.   <font color="#C0C0C0">
  174.   <select size="1" name="alignment" onchange=do_text.submit()>
  175.   <option selected><%=rsCss("ALIGN")%></option>
  176.   <option value="left">left</option>
  177.   <option value="center">center</option>
  178.   <option value="right">right</option>
  179.   <option value="justify">justify</option>
  180. </select></font>
  181.   <p align="center">
  182.   <b>| B<font color="#C0C0C0"><input type="checkbox" onclick=do_text.submit() name="BOLD" <%If (rsCss("BOLD")) = "True" then response.write " checked"%> value="ON"></font> | <i>I</i><font color="#C0C0C0"><input type="checkbox" onclick=do_text.submit() name="ITALIC" <%If (rsCss("ITALIC")) = "True" then response.write " checked"%> value="ON"></font>  
  183.   | <u>U</u><font color="#C0C0C0"><input type="checkbox" onclick=do_text.submit() name="UNDERLINE" <%If (rsCss("UNDERLINE")) = "True" then response.write " checked"%> value="ON"></font> | </b> </form>
  184. <p align="center"> </p>
  185. </BODY>
  186. </HTML>
  187. <%
  188. rsCss.Close
  189. Set rsCss = Nothing
  190. %>